
!  --------------------------------------------------
!  Silverfrost FTN95 for Microsoft Visual Studio
!  Free Format FTN95 Source File
!  --------------------------------------------------

WINAPP 0,0,'CWP_ICO.RC'

program propsht 
   use mswin 
   use aps_top
   external about,printer
   integer :: i,crtl
   integer :: ps1, ps2
   ps1=1;ps2=2
   ptr=1 
   crtl = -1 
   ! Property sheet for PS-1 
   i=winio@('%ca[Soal Umum]&') 
   i=winio@('%9`ga&',u(1),u(2),u(3),u(4),u(5),u(6),u(7),u(8),u(9))
   i=winio@('%rb[Soal 1A]%2nl&',u(1))
   i=winio@('%rb[Soal 1B]%2nl&',u(2))
   i=winio@('%rb[Soal 1C]%2nl&',u(3))
   i=winio@('%rb[Soal 1D]%3nl&',u(4))
   i=winio@('%sh',ps1) 
   ! Property sheet for PS-2 
   i=winio@('%ca[Soal Aplikasi]&') 
   i=winio@('%9`ga&',u(1),u(2),u(3),u(4),u(5),u(6),u(7),u(8),u(9))
   i=winio@('%rb[Soal Aplikasi 1]%2nl&',u(5))
   i=winio@('%rb[Soal Aplikasi 2a]%2nl&',u(6))
   i=winio@('%rb[Soal Aplikasi 2b]%2nl&',u(7))
   i=winio@('%rb[Soal Aplikasi 2c]%2nl&',u(8))
   i=winio@('%rb[Soal Aplikasi 3]%2nl&',u(9))
   i=winio@('%sh',ps2) 
   ! Start to define the application window 
   i=winio@('%ca[Program Hitungan]&') 
   i=winio@('%ww[no_border]&') 
   i=winio@('%mn[&File[E&xit]]&','EXIT')
   i=winio@('%mn[&Edit[Cu&t]]&','CUT')
   i=winio@('%mn[[&Copy]]&','COPY')
   i=winio@('%mn[&About[&About Program]]&',about)
   i=winio@('%bg[btnface]&') 
   i=winio@('%sy[thin_border]&') 
   i=winio@('%ob[raised]&') 
   ! Define the top property sheet 
   i=winio@('Input data%ff%nl&') 
   i=winio@('%`2ps&',ps1,ps2,ptr) 
   i=winio@('%ff%nl%2ta%^bt[Calculate]&',cbdummy) 
   i=winio@('%ta%^bt[Clear]&',cb_clear) 
   i=winio@('%ta%^bt[Save]&',cb_save) 
   i=winio@('%^bt[Print]&','PRINTER_OPEN',7,cb_print)
   i=winio@('%cb%ff%nl&') 
   ! Define the lower ClearWin wind 
   i=winio@('%ob[raised]&')
   i=winio@('Results%ff%nl&')
   i=winio@('%ob[depressed]%70.10cw[vscroll]%cb&',0)
   i=winio@('%lw%cb',crtl)
   open(13,FILE='temp.dat')
   close(13)
end program propsht
    
integer function about()
implicit none
include <windows.ins>
integer ans
ans = winio@('%ca[About Program]&')
ans = winio@('%cnCreated By :%2nl&')
ans = winio@('%cnWilly Setiawan - 13508043%2nl&')
ans = winio@('%cnEdwin Romelta - 13508052%4nl&')
ans = winio@('%cn%9`bt[OK]')
about = 1
end function about
